home *** CD-ROM | disk | FTP | other *** search
/ Delphi 2.0 - Programmer's Utilities Power Pack / Delphi 2.0 Programmer's Utilities Power Pack.iso / e_to_l / grapher / chrttst.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-09-15  |  1.5 KB  |  74 lines
  1. unit Chrttst;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, Buttons, Grids, Colrgrd1, Grapher;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     BitBtn1: TBitBtn;
  12.     Titles: TBitBtn;
  13.     Button1: TBitBtn;
  14.     PrintGraphic: TBitBtn;
  15.     BitBtn3: TBitBtn;
  16.     BitBtn2: TBitBtn;
  17.     Grapher1: TGrapher;
  18.     procedure BitBtn1Click(Sender: TObject);
  19.     procedure BitBtn2Click(Sender: TObject);
  20.     procedure Button1Click(Sender: TObject);
  21.     procedure TitlesClick(Sender: TObject);
  22.     procedure BitBtn3Click(Sender: TObject);
  23.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  24.     procedure PrintGraphicClick(Sender: TObject);
  25.   private
  26.     { Private declarations }
  27.   public
  28.     { Public declarations }
  29.   end;
  30.  
  31. var
  32.   Form1: TForm1;
  33.  
  34. implementation
  35.  
  36. {$R *.DFM}
  37.  
  38. procedure TForm1.BitBtn1Click(Sender: TObject);
  39. begin
  40.       Grapher1.getdata;
  41. end;
  42.  
  43. procedure TForm1.BitBtn2Click(Sender: TObject);
  44. begin
  45.  Grapher1.setdatabase;
  46. end;
  47.  
  48. procedure TForm1.Button1Click(Sender: TObject);
  49. begin
  50.       Grapher1.SetGraphProperties;
  51. end;
  52.  
  53. procedure TForm1.TitlesClick(Sender: TObject);
  54. begin
  55.        Grapher1.setTitles;
  56. end;
  57.  
  58. procedure TForm1.BitBtn3Click(Sender: TObject);
  59. begin
  60.     close;
  61. end;
  62.  
  63. procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  64. begin
  65.     action:=cafree;
  66. end;
  67.  
  68. procedure TForm1.PrintGraphicClick(Sender: TObject);
  69. begin
  70.     grapher1.print;
  71. end;
  72.  
  73. end.
  74.